;solution for euler 28

(defun solve-euler28 ()
	(let ((sum 1) (a 2) (last 1))
		(loop
			(when (= a 1002) (return))
			(dotimes (i 4)
				(incf last a)
				(incf sum last))
			(incf a 2))
		(format t "Euler 28:~a" sum)))